From: Dave Love <fx@gnu.org>
Date: Tue, 26 Nov 2002 18:17:16 +0000 (+0000)
Subject: (cp-make-coding-system): Deal with
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29506
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3913f8be5d2f511e66173bec280800c4b7ba6a33;p=emacs.git

(cp-make-coding-system): Deal with
unencodable characters.
---

diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el
index f7609659e43..33975a6eb2f 100644
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -185,6 +185,9 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 	     ((loop
 	       (read-multibyte-character r0 r1)
 	       (translate-character ,encoder r0 r1)
+	       (if (r0 != ,(charset-id 'eight-bit-graphic))
+		   (if (r0 != ,(charset-id 'eight-bit-control))
+		     (r1 = ??)))
 	       (write-repeat r1)))))))
     `(let ((translation-table (cp-make-translation-table ,v))
 	   (codes (cp-valid-codes ,v)))